﻿Public Class FindFormCode

    Public Overrides Sub Find()
        MyBase.Find()
        FindTextEventForm(Me.txtFindText.Text, 0)
    End Sub

    Private Sub txtFindText_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtFindText.TextChanged
        If chkInant.Checked Then
            Find()
        End If
    End Sub

    Public Overrides ReadOnly Property FirstControl() As System.Windows.Forms.Control
        Get
            Return txtFindText
        End Get
    End Property
End Class
